home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  800b  |  29 lines
  1. 100 REM ****************************
  2. 110 REM *    BEISPIEL FUER DIE     *
  3. 120 REM *     KOMBINATION VON      *
  4. 130 REM *   GRAPHIK UND SCHRIFT    *
  5. 140 REM *    IN EINER HARDCOPY     *
  6. 150 REM * MIT DEM SEIKOSHA GP-550A *
  7. 160 REM ****************************
  8. 170 REM
  9. 180 DIMT$(25)
  10. 185 LMAX=25:REM MAXIMALE TEXTLAENGE PRO ZEILE (HIER BEISPIELHAFT 25)
  11. 190 REM  TEXT ZEILENWEISE ABFRAGEN
  12. 200 PRINT"[147]";:FORT=0TO24
  13. 210 PRINTT+1CHR$(157);
  14. 220 INPUT". ZEILE ";T$(T)
  15. 230 IFLEN(T$(T))>LMAXTHENPRINT"[145][145]":GOTO210
  16. 240 T$(T)="     "+T$(T): REM ABSTAND SCHAFFEN
  17. 245 NEXTT
  18. 250 PRINT"[147]HARDCOPY ERFOLGT !"
  19. 260 REM ZEILENOPTION EINSCHALTEN
  20. 270 POKE49531,96
  21. 280 REM HARDCOPY STARTEN
  22. 290 SYS49152(1),0,1,0;:REM BEISPIELSWEISE
  23. 300 REM ZEILEN EINZELN AUS GRAPHIK UND TEXT ZUSAMMENSETZEN
  24. 310 FORI=1TO25
  25. 320 PRINTT$(I-1):REM TEXT UND CHR$(13)
  26. 330 SYS49537:REM NAECHSTE GRAPHIKZEILE BERECHNEN
  27. 340 NEXTI
  28. 350 END
  29.